home *** CD-ROM | disk | FTP | other *** search
/ Computer Life: SuperPac / SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO / pc / demos / nile / senet.exe / senet.DXR / 00148_RamsesPlayer Button.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  497 b   |  22 lines
  1. on mouseDown
  2.   set the castNum of sprite the clickOn to the number of cast "Ramses Button Down"
  3.   updateStage()
  4.   repeat while the mouseDown
  5.   end repeat
  6. end
  7.  
  8. on mouseUp
  9.   global theSenetGame
  10.   set the castNum of sprite the clickOn to the number of cast "Ramses Button Up"
  11.   updateStage()
  12.   PlayerToggle()
  13.   resetGame(theSenetGame)
  14.   repeat with x = 1 to 48
  15.     puppetSprite(x, 0)
  16.     updateStage()
  17.   end repeat
  18.   StartTheGame()
  19.   set the computerPlayer of theSenetGame to 1
  20.   go("StartGame")
  21. end
  22.